home *** CD-ROM | disk | FTP | other *** search
/ Perl Multimedia Cyber Classroom / PERL Multimedia Cyber Classroom (Prentice Hall)(1998).ISO / perlbyex / code.jar / 07ex026.jar / code / ch07 / 07ex026 / 07ex026.pl next >
Perl Script  |  1998-04-01  |  184b  |  9 lines
  1. #!/usr/bin/perl  
  2. #Script:  env_array 
  3. foreach $key (keys(%ENV)){ 
  4. print "$key\n"; 
  5. }  
  6. print "Your login name $ENV{'LOGNAME'}\n"; 
  7. $pwd=$ENV{'PWD'}; 
  8. print "\n", $pwd, "\n"; 
  9.